inherited frmPagar: TfrmPagar
  Left = 605
  Top = 108
  Caption = 'T'#237'tulos a Pagar'
  ClientHeight = 592
  ClientWidth = 825
  OldCreateOrder = True
  Position = poDesktopCenter
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 555
    Width = 825
  end
  inherited Panel2: TPanel
    Width = 825
    Height = 555
    inherited Panel3: TPanel
      Width = 823
      Caption = 'Titulos a Pagar'
      TabOrder = 1
      inherited GroupBox1: TGroupBox
        Left = 744
      end
    end
    inherited Panel4: TPanel
      Width = 823
      Height = 513
      TabOrder = 0
      inherited SbHints: TStatusBar
        Top = 492
        Width = 815
        Height = 17
      end
      object GroupBox2: TGroupBox
        Left = 4
        Top = 4
        Width = 815
        Height = 221
        Align = alTop
        Caption = 'Dados do T'#237'tulo'
        TabOrder = 1
        object Label4: TLabel
          Left = 412
          Top = 98
          Width = 50
          Height = 13
          Caption = 'Sub-Conta'
        end
        object Label8: TLabel
          Left = 9
          Top = 58
          Width = 94
          Height = 13
          Caption = 'Fornecedor/Pessoa'
        end
        object Label9: TLabel
          Left = 135
          Top = 16
          Width = 41
          Height = 13
          Caption = 'Empresa'
        end
        object Label1: TLabel
          Left = 9
          Top = 18
          Width = 26
          Height = 13
          Caption = 'Titulo'
        end
        object Label10: TLabel
          Left = 560
          Top = 57
          Width = 33
          Height = 13
          Caption = 'Pedido'
        end
        object Label12: TLabel
          Left = 688
          Top = 57
          Width = 53
          Height = 13
          Caption = 'Nota Fiscal'
        end
        object Label6: TLabel
          Left = 9
          Top = 97
          Width = 33
          Height = 13
          Caption = 'Contas'
        end
        object Label13: TLabel
          Left = 6
          Top = 137
          Width = 63
          Height = 13
          Caption = 'Observa'#231#245'es'
        end
        object edt_subconta: TDBEdit
          Left = 412
          Top = 112
          Width = 58
          Height = 21
          Hint = 'Codigo da subconta'
          CharCase = ecUpperCase
          DataField = 'PAG_SUBCONTA'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 12
          OnExit = edt_subcontaExit
        end
        object edt_pessoa: TDBEdit
          Left = 9
          Top = 72
          Width = 89
          Height = 21
          Hint = 'Pessoa geradora do t'#237'tulo'
          CharCase = ecUpperCase
          DataField = 'PAG_PESSOA'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnExit = edt_pessoaExit
        end
        object edt_empresa: TDBEdit
          Left = 135
          Top = 32
          Width = 32
          Height = 21
          Hint = 'C'#243'digo da Empresa '
          CharCase = ecUpperCase
          DataField = 'PAG_EMPRESA'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnExit = edt_empresaExit
        end
        object btn_empresa: TBitBtn
          Left = 167
          Top = 32
          Width = 22
          Height = 21
          Hint = 'Consulta empresas cadastradas'
          Caption = '...'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          TabStop = False
          OnClick = btn_empresaClick
        end
        object stEmpresa: TStaticText
          Left = 190
          Top = 32
          Width = 619
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 3
        end
        object stPessoa: TStaticText
          Left = 121
          Top = 72
          Width = 434
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 6
        end
        object btn_pessoa: TBitBtn
          Left = 98
          Top = 72
          Width = 22
          Height = 21
          Hint = 'Consulta pessoas cadastradas'
          Caption = '...'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          TabStop = False
          OnClick = btn_pessoaClick
        end
        object btn_subconta: TBitBtn
          Left = 470
          Top = 112
          Width = 22
          Height = 21
          Hint = 'Consulta sub-contas cadastradas'
          Caption = '...'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 13
          TabStop = False
          OnClick = btn_subcontaClick
        end
        object st_subconta: TStaticText
          Left = 491
          Top = 112
          Width = 318
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 14
        end
        object edt_documento: TDBEdit
          Left = 9
          Top = 32
          Width = 121
          Height = 21
          Hint = 'N'#250'mero do Documento'
          CharCase = ecUpperCase
          DataField = 'PAG_TITULO'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object edt_pedido: TDBEdit
          Left = 560
          Top = 72
          Width = 121
          Height = 21
          Hint = 'N'#250'mero do pedido'
          CharCase = ecUpperCase
          DataField = 'PAG_PEDIDO'
          DataSource = DtSrc
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
        end
        object edt_notafiscal: TDBEdit
          Left = 688
          Top = 72
          Width = 121
          Height = 21
          Hint = 'N'#250'mero da Nota Fiscal'
          CharCase = ecUpperCase
          DataField = 'PAG_NOTA'
          DataSource = DtSrc
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
        end
        object edt_contas: TDBEdit
          Left = 8
          Top = 112
          Width = 58
          Height = 21
          Hint = 'C'#243'digo da conta'
          CharCase = ecUpperCase
          DataField = 'PAG_CONTA'
          DataSource = DtSrc
          TabOrder = 9
          OnExit = edt_contasExit
        end
        object btn_conta: TButton
          Left = 66
          Top = 112
          Width = 25
          Height = 21
          Hint = 'Consulta contas'
          Caption = '...'
          TabOrder = 10
          TabStop = False
          OnClick = btn_contaClick
        end
        object stContas: TStaticText
          Left = 93
          Top = 112
          Width = 315
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 11
        end
        object mem_observacoes: TDBMemo
          Left = 6
          Top = 151
          Width = 803
          Height = 63
          Hint = 'Observa'#231#245'es diversas'
          DataField = 'PAG_OBSERVACOES'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 15
        end
      end
      object GroupBox4: TGroupBox
        Left = 4
        Top = 225
        Width = 815
        Height = 267
        Align = alClient
        Caption = 'Dados do Parcelamento'
        TabOrder = 2
        object Panel5: TPanel
          Left = 2
          Top = 232
          Width = 811
          Height = 33
          Align = alBottom
          BevelInner = bvLowered
          TabOrder = 2
          object BitBaixa: TBitBtn
            Left = 3
            Top = 5
            Width = 75
            Height = 25
            Hint = ' Baixa lancamento de cart'#227'o de cr'#233'dito '
            Caption = '&Baixa'
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnClick = BitBaixaClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333330000333333333333333333333333F33333333333
              00003333344333333333333333388F3333333333000033334224333333333333
              338338F3333333330000333422224333333333333833338F3333333300003342
              222224333333333383333338F3333333000034222A22224333333338F338F333
              8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
              33333338F83338F338F33333000033A33333A222433333338333338F338F3333
              0000333333333A222433333333333338F338F33300003333333333A222433333
              333333338F338F33000033333333333A222433333333333338F338F300003333
              33333333A222433333333333338F338F00003333333333333A22433333333333
              3338F38F000033333333333333A223333333333333338F830000333333333333
              333A333333333333333338330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
          end
          object BitEstorna: TBitBtn
            Left = 78
            Top = 5
            Width = 75
            Height = 25
            Hint = 'Estorna lancamento de cart'#227'o de Cr'#233'dito'
            Caption = '&Estorna'
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            OnClick = BitEstornaClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
              33333333333F8888883F33330000324334222222443333388F3833333388F333
              000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
              F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
              223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
              3338888300003AAAAAAA33333333333888888833333333330000333333333333
              333333333333333333FFFFFF000033333333333344444433FFFF333333888888
              00003A444333333A22222438888F333338F3333800003A2243333333A2222438
              F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
              22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
              33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
              3333333333338888883333330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
          end
          object btnEditar: TBitBtn
            Left = 153
            Top = 5
            Width = 75
            Height = 25
            Caption = 'Editar'
            Enabled = False
            TabOrder = 2
            OnClick = btnEditarClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
              333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
              3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
              B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
              33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
              000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
              033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
              BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
              33B33733333773333373B333333B3333333B7333333733333337}
            NumGlyphs = 2
          end
        end
        object Panel6: TPanel
          Left = 2
          Top = 15
          Width = 811
          Height = 47
          Align = alTop
          BevelInner = bvLowered
          TabOrder = 0
          object Label2: TLabel
            Left = 9
            Top = 4
            Width = 39
            Height = 13
            Caption = 'Emiss'#227'o'
          end
          object Label3: TLabel
            Left = 188
            Top = 4
            Width = 61
            Height = 13
            Caption = 'Qt.Parcela(s)'
          end
          object Label5: TLabel
            Left = 101
            Top = 4
            Width = 41
            Height = 13
            Caption = 'Valor R$'
          end
          object Label7: TLabel
            Left = 339
            Top = 5
            Width = 80
            Height = 13
            Caption = 'Venc. 1'#170' Parcela'
          end
          object Label11: TLabel
            Left = 254
            Top = 5
            Width = 79
            Height = 13
            Caption = 'Dias entre Venc.'
          end
          object edt_emissao: TDBEdit
            Left = 8
            Top = 18
            Width = 89
            Height = 21
            Hint = 'Data da Emiss'#227'o do titulo'
            CharCase = ecUpperCase
            DataField = 'PAG_EMISSAO'
            DataSource = DtSrc
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnExit = edt_emissaoExit
          end
          object edt_valor: TDBEdit
            Left = 101
            Top = 18
            Width = 84
            Height = 21
            Hint = 'Valor Total'
            CharCase = ecUpperCase
            DataField = 'PAG_VALOR'
            DataSource = DtSrc
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            OnExit = edt_emissaoExit
          end
          object edt_parcelas: TDBEdit
            Left = 188
            Top = 18
            Width = 63
            Height = 21
            Hint = 'Quantidade de parcelas'
            CharCase = ecUpperCase
            DataField = 'PAG_PARCELAS'
            DataSource = DtSrc
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
            OnExit = edt_emissaoExit
          end
          object edt_intervalodias: TDBEdit
            Left = 255
            Top = 18
            Width = 81
            Height = 21
            Hint = 'Dias entre vencimentos'
            CharCase = ecUpperCase
            DataField = 'IntervaloDias'
            DataSource = DtSrc
            TabOrder = 3
            OnExit = edt_emissaoExit
          end
          object edt_vencimento: TDBEdit
            Left = 340
            Top = 18
            Width = 79
            Height = 21
            Hint = 'Data de vencimento da primeira parcela'
            CharCase = ecUpperCase
            DataField = 'Vencimento'
            DataSource = DtSrc
            TabOrder = 4
            OnExit = edt_emissaoExit
          end
        end
        object Panel7: TPanel
          Left = 2
          Top = 62
          Width = 811
          Height = 170
          Align = alClient
          TabOrder = 1
          object StaticText1: TStaticText
            Left = 1
            Top = 1
            Width = 809
            Height = 17
            Align = alTop
            Alignment = taCenter
            AutoSize = False
            BorderStyle = sbsSingle
            Caption = 'Parcelas'
            Color = clSkyBlue
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentColor = False
            ParentFont = False
            TabOrder = 0
          end
          object GridParcelas: TDBGrid
            Left = 1
            Top = 18
            Width = 809
            Height = 151
            Hint = 'Clique na linha que deseja baixar / alterar'
            TabStop = False
            Align = alClient
            Ctl3D = False
            DataSource = DtSrcLancamentos
            Enabled = False
            Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnCellClick = GridParcelasCellClick
            OnDrawColumnCell = GridParcelasDrawColumnCell
            OnDblClick = GridParcelasDblClick
            Columns = <
              item
                Expanded = False
                FieldName = 'PAP_SEQUENCIAL_PARCELA'
                Title.Caption = 'Parcela'
                Width = 61
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PAP_VENCIMENTO'
                Title.Caption = 'Vencimento'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PAP_VALOR'
                Title.Caption = 'Valor'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PAP_RECEBIMENTO'
                Title.Caption = 'Pagamento'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PAP_JUROS'
                Title.Caption = 'Juros'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PAP_DESCONTOS'
                Title.Caption = 'Descontos'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PAP_VALOR_RECEBIDO'
                Title.Caption = 'Valor Recebido'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PAP_DTHBAIXA'
                Title.Caption = 'Baixa'
                Width = 192
                Visible = True
              end>
          end
        end
      end
    end
  end
  inherited DtSrc: TDataSource
    AutoEdit = False
    DataSet = CDSContasPagar
    Left = 133
    Top = 403
  end
  object DtSrcLancamentos: TDataSource
    DataSet = CDSContasPagarParcelas
    Left = 138
    Top = 450
  end
  object CDSContasPagarParcelas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'pap_idftitulo'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSPContasPagarParcelas'
    BeforePost = SQLC_Contas_a_Pagar_ParcelasBeforePost
    BeforeDelete = SQLC_Contas_a_Pagar_ParcelasBeforeDelete
    AfterScroll = CDSContasPagarParcelasAfterScroll
    Left = 255
    Top = 448
    object CDSContasPagarParcelasPAP_IDFTITULO: TIntegerField
      FieldName = 'PAP_IDFTITULO'
      Required = True
    end
    object CDSContasPagarParcelasPAP_SEQUENCIAL_PARCELA: TIntegerField
      FieldName = 'PAP_SEQUENCIAL_PARCELA'
      Required = True
    end
    object CDSContasPagarParcelasPAP_VENCIMENTO: TDateField
      FieldName = 'PAP_VENCIMENTO'
      Required = True
    end
    object CDSContasPagarParcelasPAP_RECEBIMENTO: TDateField
      FieldName = 'PAP_RECEBIMENTO'
    end
    object CDSContasPagarParcelasPAP_NOSSO_NUMERO: TStringField
      FieldName = 'PAP_NOSSO_NUMERO'
      Size = 25
    end
    object CDSContasPagarParcelasPAP_VALOR: TFloatField
      FieldName = 'PAP_VALOR'
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
      currency = True
    end
    object CDSContasPagarParcelasPAP_VALOR_RECEBIDO: TFloatField
      FieldName = 'PAP_VALOR_RECEBIDO'
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
      currency = True
    end
    object CDSContasPagarParcelasPAP_FORMAPGTO: TSmallintField
      FieldName = 'PAP_FORMAPGTO'
    end
    object CDSContasPagarParcelasPAP_JUROS: TFloatField
      FieldName = 'PAP_JUROS'
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
      currency = True
    end
    object CDSContasPagarParcelasPAP_DESCONTOS: TFloatField
      FieldName = 'PAP_DESCONTOS'
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
      currency = True
    end
    object CDSContasPagarParcelasPAP_CAIXALANIDF: TIntegerField
      FieldName = 'PAP_CAIXALANIDF'
    end
    object CDSContasPagarParcelasPAP_BANCOLANIDF: TIntegerField
      FieldName = 'PAP_BANCOLANIDF'
    end
    object CDSContasPagarParcelasPAP_USRINCLUSAO: TStringField
      FieldName = 'PAP_USRINCLUSAO'
      Required = True
      Size = 3
    end
    object CDSContasPagarParcelasPAP_USRALTERACAO: TStringField
      FieldName = 'PAP_USRALTERACAO'
      Required = True
      Size = 3
    end
    object CDSContasPagarParcelasPAP_USRBAIXA: TStringField
      FieldName = 'PAP_USRBAIXA'
      Size = 3
    end
    object CDSContasPagarParcelasPAP_DTHINCLUSAO: TDateTimeField
      FieldName = 'PAP_DTHINCLUSAO'
      Required = True
    end
    object CDSContasPagarParcelasPAP_DTHALTERACAO: TDateTimeField
      FieldName = 'PAP_DTHALTERACAO'
      Required = True
    end
    object CDSContasPagarParcelasPAP_DTHBAIXA: TDateTimeField
      FieldName = 'PAP_DTHBAIXA'
    end
    object CDSContasPagarParcelasPAP_OBSERVACOES: TMemoField
      FieldName = 'PAP_OBSERVACOES'
      BlobType = ftMemo
    end
  end
  object CDSContasPagar: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'PAG_IDFTITULO'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSPContasPagar'
    AfterOpen = CDSContasPagarAfterOpen
    AfterInsert = CDSContasPagarAfterInsert
    AfterEdit = CDSContasPagarAfterInsert
    Left = 255
    Top = 400
    object CDSContasPagarIntervaloDias: TIntegerField
      FieldKind = fkInternalCalc
      FieldName = 'IntervaloDias'
    end
    object CDSContasPagarVencimento: TDateField
      FieldKind = fkInternalCalc
      FieldName = 'Vencimento'
    end
    object CDSContasPagarPAG_PESSOA: TIntegerField
      FieldName = 'PAG_PESSOA'
      Required = True
    end
    object CDSContasPagarPAG_EMISSAO: TDateField
      FieldName = 'PAG_EMISSAO'
    end
    object CDSContasPagarPAG_EMPRESA: TIntegerField
      FieldName = 'PAG_EMPRESA'
      Required = True
    end
    object CDSContasPagarPAG_OBSERVACOES: TMemoField
      FieldName = 'PAG_OBSERVACOES'
      BlobType = ftMemo
    end
    object CDSContasPagarPAG_USUARIO: TStringField
      FieldName = 'PAG_USUARIO'
      Size = 3
    end
    object CDSContasPagarPAG_TITULO: TStringField
      FieldName = 'PAG_TITULO'
      Required = True
      Size = 13
    end
    object CDSContasPagarPAG_PEDIDO: TStringField
      FieldName = 'PAG_PEDIDO'
      Size = 13
    end
    object CDSContasPagarPAG_NOTA: TStringField
      FieldName = 'PAG_NOTA'
      Size = 13
    end
    object CDSContasPagarPAG_IDFTITULO: TIntegerField
      FieldName = 'PAG_IDFTITULO'
      Required = True
    end
    object CDSContasPagarPAG_CONTA: TStringField
      FieldName = 'PAG_CONTA'
      Required = True
      Size = 3
    end
    object CDSContasPagarPAG_SUBCONTA: TStringField
      FieldName = 'PAG_SUBCONTA'
      Required = True
      Size = 3
    end
    object CDSContasPagarPAG_VALOR: TFloatField
      FieldName = 'PAG_VALOR'
      Required = True
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
      currency = True
    end
    object CDSContasPagarPAG_PARCELAS: TSmallintField
      FieldName = 'PAG_PARCELAS'
      Required = True
    end
    object CDSContasPagarPAG_USRINCLUSAO: TStringField
      FieldName = 'PAG_USRINCLUSAO'
      Required = True
      Size = 3
    end
    object CDSContasPagarPAG_USRALTERACAO: TStringField
      FieldName = 'PAG_USRALTERACAO'
      Required = True
      Size = 3
    end
    object CDSContasPagarPAG_DTHINCLUSAO: TDateTimeField
      FieldName = 'PAG_DTHINCLUSAO'
      Required = True
    end
    object CDSContasPagarPAG_DTHALTERACAO: TDateTimeField
      FieldName = 'PAG_DTHALTERACAO'
      Required = True
    end
  end
  object ZContasPagar: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUPContasPagar
    SQL.Strings = (
      'SELECT * FROM  PAGAR_TITULOS'
      'where PAG_IDFTITULO =  :PAG_IDFTITULO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PAG_IDFTITULO'
        ParamType = ptUnknown
      end>
    Left = 519
    Top = 400
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PAG_IDFTITULO'
        ParamType = ptUnknown
      end>
  end
  object ZContasPagarParcelas: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUPContasPagarParcela
    SQL.Strings = (
      'select * from PAGAR_TITULOS_PARCELAS'
      'where PAP_IDFTITULO = :pap_idftitulo')
    Params = <
      item
        DataType = ftUnknown
        Name = 'pap_idftitulo'
        ParamType = ptUnknown
      end>
    Left = 519
    Top = 448
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pap_idftitulo'
        ParamType = ptUnknown
      end>
  end
  object ZUPContasPagar: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM PAGAR_TITULOS'
      'WHERE'
      '  PAGAR_TITULOS.PAG_IDFTITULO = :OLD_PAG_IDFTITULO')
    InsertSQL.Strings = (
      'INSERT INTO PAGAR_TITULOS'
      '  (PAG_PESSOA, PAG_EMISSAO, PAG_EMPRESA, '
      'PAG_OBSERVACOES, PAG_USUARIO, '
      '   PAG_TITULO, PAG_PEDIDO, PAG_NOTA, PAG_IDFTITULO, '
      'PAG_CONTA, PAG_SUBCONTA, '
      '   PAG_VALOR, PAG_PARCELAS, PAG_USRINCLUSAO, '
      'PAG_USRALTERACAO, PAG_DTHINCLUSAO, '
      '   PAG_DTHALTERACAO)'
      'VALUES'
      '  (:PAG_PESSOA, :PAG_EMISSAO, :PAG_EMPRESA, '
      ':PAG_OBSERVACOES, :PAG_USUARIO, '
      '   :PAG_TITULO, :PAG_PEDIDO, :PAG_NOTA, :PAG_IDFTITULO, '
      ':PAG_CONTA, :PAG_SUBCONTA, '
      '   :PAG_VALOR, :PAG_PARCELAS, :PAG_USRINCLUSAO, '
      ':PAG_USRALTERACAO, :PAG_DTHINCLUSAO, '
      '   :PAG_DTHALTERACAO)')
    ModifySQL.Strings = (
      'UPDATE PAGAR_TITULOS SET'
      '  PAG_PESSOA = :PAG_PESSOA,'
      '  PAG_EMISSAO = :PAG_EMISSAO,'
      '  PAG_EMPRESA = :PAG_EMPRESA,'
      '  PAG_OBSERVACOES = :PAG_OBSERVACOES,'
      '  PAG_USUARIO = :PAG_USUARIO,'
      '  PAG_TITULO = :PAG_TITULO,'
      '  PAG_PEDIDO = :PAG_PEDIDO,'
      '  PAG_NOTA = :PAG_NOTA,'
      '  PAG_CONTA = :PAG_CONTA,'
      '  PAG_SUBCONTA = :PAG_SUBCONTA,'
      '  PAG_VALOR = :PAG_VALOR,'
      '  PAG_PARCELAS = :PAG_PARCELAS,'
      '  PAG_USRINCLUSAO = :PAG_USRINCLUSAO,'
      '  PAG_USRALTERACAO = :PAG_USRALTERACAO,'
      '  PAG_DTHINCLUSAO = :PAG_DTHINCLUSAO,'
      '  PAG_DTHALTERACAO = :PAG_DTHALTERACAO'
      'WHERE'
      '  PAGAR_TITULOS.PAG_IDFTITULO = :OLD_PAG_IDFTITULO')
    UseSequenceFieldForRefreshSQL = False
    Left = 647
    Top = 400
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PAG_PESSOA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_EMISSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_OBSERVACOES'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_TITULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_PEDIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_NOTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_CONTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_SUBCONTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_PARCELAS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_USRINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_USRALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_DTHINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_DTHALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_PAG_IDFTITULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAG_IDFTITULO'
        ParamType = ptUnknown
      end>
  end
  object ZUPContasPagarParcela: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM PAGAR_TITULOS_PARCELAS'
      'WHERE'
      '  PAGAR_TITULOS_PARCELAS.PAP_IDFTITULO = '
      ':OLD_PAP_IDFTITULO AND'
      '  PAGAR_TITULOS_PARCELAS.PAP_SEQUENCIAL_PARCELA = '
      ':OLD_PAP_SEQUENCIAL_PARCELA')
    InsertSQL.Strings = (
      'INSERT INTO PAGAR_TITULOS_PARCELAS'
      '  (PAP_IDFTITULO, PAP_SEQUENCIAL_PARCELA, '
      'PAP_VENCIMENTO, PAP_RECEBIMENTO, '
      '   PAP_NOSSO_NUMERO, PAP_VALOR, PAP_VALOR_RECEBIDO, '
      'PAP_FORMAPGTO, PAP_JUROS, '
      '   PAP_DESCONTOS, PAP_CAIXALANIDF, PAP_BANCOLANIDF, '
      'PAP_USRINCLUSAO, PAP_USRALTERACAO, '
      '   PAP_USRBAIXA, PAP_DTHINCLUSAO, PAP_DTHALTERACAO, '
      'PAP_DTHBAIXA,PAP_OBSERVACOES)'
      'VALUES'
      '  (:PAP_IDFTITULO, :PAP_SEQUENCIAL_PARCELA, '
      ':PAP_VENCIMENTO, :PAP_RECEBIMENTO, '
      '   :PAP_NOSSO_NUMERO, :PAP_VALOR, :PAP_VALOR_RECEBIDO, '
      ':PAP_FORMAPGTO, '
      '   :PAP_JUROS, :PAP_DESCONTOS, :PAP_CAIXALANIDF, '
      ':PAP_BANCOLANIDF, :PAP_USRINCLUSAO, '
      '   :PAP_USRALTERACAO, :PAP_USRBAIXA, :PAP_DTHINCLUSAO, '
      ':PAP_DTHALTERACAO, '
      '   :PAP_DTHBAIXA,:PAP_OBSERVACOES)')
    ModifySQL.Strings = (
      'UPDATE PAGAR_TITULOS_PARCELAS SET'
      '  PAP_IDFTITULO = :PAP_IDFTITULO,'
      '  PAP_SEQUENCIAL_PARCELA = :PAP_SEQUENCIAL_PARCELA,'
      '  PAP_VENCIMENTO = :PAP_VENCIMENTO,'
      '  PAP_RECEBIMENTO = :PAP_RECEBIMENTO,'
      '  PAP_NOSSO_NUMERO = :PAP_NOSSO_NUMERO,'
      '  PAP_VALOR = :PAP_VALOR,'
      '  PAP_VALOR_RECEBIDO = :PAP_VALOR_RECEBIDO,'
      '  PAP_FORMAPGTO = :PAP_FORMAPGTO,'
      '  PAP_JUROS = :PAP_JUROS,'
      '  PAP_DESCONTOS = :PAP_DESCONTOS,'
      '  PAP_CAIXALANIDF = :PAP_CAIXALANIDF,'
      '  PAP_BANCOLANIDF = :PAP_BANCOLANIDF,'
      '  PAP_USRINCLUSAO = :PAP_USRINCLUSAO,'
      '  PAP_USRALTERACAO = :PAP_USRALTERACAO,'
      '  PAP_USRBAIXA = :PAP_USRBAIXA,'
      '  PAP_DTHINCLUSAO = :PAP_DTHINCLUSAO,'
      '  PAP_DTHALTERACAO = :PAP_DTHALTERACAO,'
      '  PAP_DTHBAIXA = :PAP_DTHBAIXA,'
      '  PAP_OBSERVACOES=:PAP_OBSERVACOES'
      'WHERE'
      '  PAGAR_TITULOS_PARCELAS.PAP_IDFTITULO = '
      ':OLD_PAP_IDFTITULO AND'
      '  PAGAR_TITULOS_PARCELAS.PAP_SEQUENCIAL_PARCELA = '
      ':OLD_PAP_SEQUENCIAL_PARCELA')
    UseSequenceFieldForRefreshSQL = False
    Left = 647
    Top = 448
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PAP_IDFTITULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_SEQUENCIAL_PARCELA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_VENCIMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_RECEBIMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_NOSSO_NUMERO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_VALOR_RECEBIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_FORMAPGTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_JUROS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_DESCONTOS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_CAIXALANIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_BANCOLANIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_USRINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_USRALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_USRBAIXA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_DTHINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_DTHALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_DTHBAIXA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAP_OBSERVACOES'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_PAP_IDFTITULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_PAP_SEQUENCIAL_PARCELA'
        ParamType = ptUnknown
      end>
  end
  object DSPContasPagar: TDataSetProvider
    DataSet = ZContasPagar
    Left = 393
    Top = 400
  end
  object DSPContasPagarParcelas: TDataSetProvider
    DataSet = ZContasPagarParcelas
    Left = 391
    Top = 448
  end
end
